home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
pgm_ctrl
/
cuactrls
/
cstatus.frm
< prev
next >
Wrap
Text File
|
1995-05-22
|
6KB
|
164 lines
VERSION 2.00
Begin Form frmStatus
BorderStyle = 3 'Fixed Double
Caption = "Status Bar Demo"
ClientHeight = 1395
ClientLeft = 1170
ClientTop = 2775
ClientWidth = 8025
ClipControls = 0 'False
Height = 1800
Left = 1110
LinkTopic = "Form1"
ScaleHeight = 1395
ScaleWidth = 8025
Top = 2430
Width = 8145
Begin CUAStatus stsMsg
Align = 2 'Align Bottom
BackColor = &H00C0C0C0&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 0
TabIndex = 2
Top = 1095
Width = 8025
Begin CUAStatus stsNum
BackColor = &H00C0C0C0&
BorderStyle = 7 'Inset single
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 7410
StandardStatus = 3 'Num
TabIndex = 8
Top = 45
Width = 555
End
Begin CUAStatus stsIns
BackColor = &H00C0C0C0&
BorderStyle = 7 'Inset single
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 6795
StandardStatus = 1 'Ins
TabIndex = 7
Top = 45
Width = 555
End
Begin CUAStatus stsCaps
BackColor = &H00C0C0C0&
BorderStyle = 7 'Inset single
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 6180
StandardStatus = 2 'Caps
TabIndex = 6
Top = 45
Width = 555
End
Begin CUAStatus stsTime
BackColor = &H00C0C0C0&
BorderStyle = 7 'Inset single
Caption = "100%"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 5325
StandardStatus = 6 'Time
TabIndex = 5
Top = 45
Width = 780
End
Begin CUAStatus sts1
BackColor = &H00C0C0C0&
BorderStyle = 7 'Inset single
Caption = "At 2,5cm Ln 1 Col 1"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 1
Left = 2775
TabIndex = 4
Top = 45
Width = 2430
End
Begin CUAStatus sts1
BackColor = &H00C0C0C0&
BorderStyle = 7 'Inset single
Caption = "Pg 1 Sec 1 1/ 1"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 0
Left = 135
TabIndex = 3
Top = 45
Width = 2550
End
End
Begin CUACommand cmdOK
Caption = "OK"
Default = -1 'True
Height = 345
Left = 6105
StandardButton = 1 'OK
TabIndex = 0
Top = 150
Width = 1260
End
Begin CUALabel lbl
Caption = "Status bars are used to bring out commonly requested information to the end user. This is an example of the status line in Word 2.0."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000080&
Height = 765
Index = 6
Left = 210
TabIndex = 1
Top = 135
Width = 5025
End
End
Option Explicit
Sub cmdOK_Click ()
Unload Me
End Sub